<%
Function saiDepartamentos()
on error resume next
	sSQL = "SELECT dep_id, dep_departamento FROM _Departamentos WHERE dep_estado = 1 ORDER BY dep_departamento ASC"
	 txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	' Los Registros
	cgr=0
	varX = " "
	FOR  cgr=0 TO cgregqty
	   varX= VarX & "<option value="""& Trim(txtmat(0,cgr)) &""">" & Trim(txtmat(1,cgr)) &"</option>"
	NEXT
	saiDepartamentos=varX
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiProyDepartamentos(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosDepartamentos.pd_id, _Departamentos.dep_departamento"
	sSQL = sSQL & " FROM _Departamentos RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosDepartamentos ON _Departamentos.dep_id = _ProyectosDepartamentos.dep_id"
	sSQL = sSQL & " WHERE (_ProyectosDepartamentos.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Departamentos.dep_departamento"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR cgr = 0 TO cgregqty
		varY = txtmat(0,cgr) 
		IF NOT CDbl(varY) > 0 THEN varY = 0
		varX = VarX & "<a href=""SGP.Localizacion.asp?cgcmd=cgDelDepartamento&qRegistro=" & varY & """><img src=""Iconos/page_delete.png"" width=""16"" height=""16"" border=""0"" align=""absmiddle"" alt=""Borrar"" title=""Borrar""></a> " & Trim(txtmat(1,cgr)) &"<BR>"
	NEXT
saiProyDepartamentos = varX
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function funProyDepartamentos(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosDepartamentos.pd_id, _Departamentos.dep_departamento"
	sSQL = sSQL & " FROM _Departamentos RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosDepartamentos ON _Departamentos.dep_id = _ProyectosDepartamentos.dep_id"
	sSQL = sSQL & " WHERE (_ProyectosDepartamentos.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Departamentos.dep_departamento"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR cgr = 0 TO cgregqty
		varY = txtmat(0,cgr) 
		IF NOT CDbl(varY) > 0 THEN varY = 0
		varX = VarX & "<img src=""Iconos/bullet_gray.png"" width=""16"" height=""16"" border=""0"" align=""absmiddle"">" & Trim(txtmat(1,cgr)) &"<BR>"
	NEXT
funProyDepartamentos = varX
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiProyProvincias(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosProvincias.pp_id, _Provincias.prov_provincia"
	sSQL = sSQL & " FROM _Provincias RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosProvincias ON _Provincias.prov_id = _ProyectosProvincias.prov_id"
	sSQL = sSQL & " WHERE (_ProyectosProvincias.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Provincias.prov_provincia"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR  cgr=0 TO cgregqty STEP 1
		varY = txtmat(0,cgr)
		IF NOT CDbl(varY) > 0 THEN varY = 0 
		varX= VarX & "<a href=""SGP.Localizacion.asp?cgcmd=cgDelProvincia&qRegistro=" & varY & """><img src=""Iconos/page_delete.png"" width=""16"" height=""16"" border=""0"" align=""absmiddle"" alt=""Borrar"" title=""Borrar""></a> " & Trim(txtmat(1,cgr)) &"<BR>"
	NEXT
saiProyProvincias = varX
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function funProyProvincias(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosProvincias.pp_id, _Provincias.prov_provincia"
	sSQL = sSQL & " FROM _Provincias RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosProvincias ON _Provincias.prov_id = _ProyectosProvincias.prov_id"
	sSQL = sSQL & " WHERE (_ProyectosProvincias.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Provincias.prov_provincia"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR  cgr=0 TO cgregqty STEP 1
		varY = txtmat(0,cgr)
		IF NOT CDbl(varY) > 0 THEN varY = 0 
		varX= VarX & "<img src=""Iconos/bullet_gray.png"" width=""16"" height=""16"" border=""0"" align=""absmiddle"">" & Trim(txtmat(1,cgr)) &"<BR>"
	NEXT
funProyProvincias = varX
End Function


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiProvincias(vProyecto)
on error resume next

	IF NOT vProyecto>0 THEN vProyecto=0
	sSQL=""
	sSQL=sSQL & " SELECT _Provincias.prov_id, _Provincias.prov_provincia"
	sSQL=sSQL & " FROM _Provincias INNER JOIN"
	sSQL=sSQL & " _ProyectosDepartamentos ON _Provincias.dep_id = _ProyectosDepartamentos.dep_id"
	sSQL=sSQL & " WHERE (_ProyectosDepartamentos.proy_id = "& vProyecto &")"
	'sSQL=sSQL & " ORDER BY _Provincias.prov_provincia"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR  cgr=0 TO cgregqty STEP 1
	   varX= VarX & "<option value="""& Trim(txtmat(0,cgr)) &""">" & Trim(txtmat(1,cgr)) &"</option>"
	NEXT
	saiProvincias=varX
End Function	

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiProyMunicipios(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosMunicipios.pm_id, _Municipios.muni_municipio, _ProyectosMunicipios.pm_pondera"
	sSQL = sSQL & " FROM _Municipios RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosMunicipios ON _Municipios.muni_id = _ProyectosMunicipios.muni_id"
	sSQL = sSQL & " WHERE (_ProyectosMunicipios.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Municipios.muni_municipio"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR cgr = 0 TO cgregqty
		varY = txtmat(0,cgr) 
		IF NOT CDbl(varY) > 0 THEN  varY = 0
		varX= VarX & "<a href=""SGP.Localizacion.asp?cgcmd=cgDelMunicipio&qRegistro=" & varY & """><img src=""Iconos/page_delete.png"" width=""16"" height=""16"" border=""0"" alt=""Borrar"" title=""Borrar"" align=""absmiddle""></a><img src=""Iconos/page_edit.png"" width=""16"" height=""16"" border=""0"" style=""cursor:pointer"" align=""absmiddle"" alt=""Editar Ponderación""  title=""Editar Ponderación"" onclick=""javascript:vV1=jsDato('Ponderación del Municipio','0');NewWindow('"& qPagina &"?cgcmd=cmd_UpdMunicipio&qRegistro="& varY &"&qPonderacion='+vV1,'_self',0,0,0)""> [" & FormatNumber(txtmat(2,cgr),2) & " %] " & txtmat(1,cgr) &"<BR>"	   
	NEXT
saiProyMunicipios = varX
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function funProyMunicipios(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosMunicipios.pm_id, _Municipios.muni_municipio, _ProyectosMunicipios.pm_pondera"
	sSQL = sSQL & " FROM _Municipios RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosMunicipios ON _Municipios.muni_id = _ProyectosMunicipios.muni_id"
	sSQL = sSQL & " WHERE (_ProyectosMunicipios.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Municipios.muni_municipio"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR cgr = 0 TO cgregqty
		varY = txtmat(0,cgr) 
		IF NOT CDbl(varY) > 0 THEN  varY = 0
		varX= VarX & "<img src=""Iconos/bullet_gray.png"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> [" & FormatNumber(txtmat(2,cgr),2) & " %] " & txtmat(1,cgr) &"<BR>"	   
	NEXT
funProyMunicipios = varX
End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiMunicipios(vProyecto)
on error resume next
	IF NOT vProyecto>0 THEN vProyecto=0

	sSQL = ""
	sSQL = sSQL & " SELECT _Municipios.muni_id, _Municipios.muni_municipio"
	sSQL = sSQL & " FROM _Municipios INNER JOIN"
	sSQL = sSQL & " _ProyectosProvincias ON _Municipios.prov_id = _ProyectosProvincias.prov_id"
	sSQL = sSQL & " WHERE (_ProyectosProvincias.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Municipios.muni_municipio"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	' Los Registros
	cgr=0
	varX = "none"
	FOR  cgr=0 TO cgregqty STEP 1
	   varX= VarX & "<option value="""& Trim(txtmat(0,cgr)) &""">" & Trim(txtmat(1,cgr)) &"</option>"
	NEXT
	saiMunicipios=varX
End Function	

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiProyCantones(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosCantones.pc_id, _Cantones.can_canton"
	sSQL = sSQL & " FROM _Cantones RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosCantones ON _Cantones.can_id = _ProyectosCantones.can_id"
	sSQL = sSQL & " WHERE (_ProyectosCantones.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Cantones.can_canton"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	' Los Registros
	cgr=0
	varX = ""
	FOR  cgr=0 TO cgregqty
		varY = txtmat(0,cgr) 
		IF NOT CDbl(varY) > 0 THEN  varY = 0
		varX = VarX & "<a href=""SGP.Localizacion.asp?cgcmd=cgDelCanton&qRegistro=" & varY & """><img src=""Iconos/page_delete.png"" width=""16"" height=""16"" border=""0"" align=""absmiddle"" alt=""Borrar"" title=""Borrar""></a> "& Trim(txtmat(1,cgr)) &"<BR>"	   
	NEXT
saiProyCantones = varX
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function funProyCantones(vProyecto)
on error resume next
	sSQL = ""
	sSQL = sSQL & " SELECT _ProyectosCantones.pc_id, _Cantones.can_canton"
	sSQL = sSQL & " FROM _Cantones RIGHT OUTER JOIN"
	sSQL = sSQL & " _ProyectosCantones ON _Cantones.can_id = _ProyectosCantones.can_id"
	sSQL = sSQL & " WHERE (_ProyectosCantones.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Cantones.can_canton"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	' Los Registros
	cgr=0
	varX = ""
	FOR  cgr=0 TO cgregqty
		varY = txtmat(0,cgr) 
		IF NOT CDbl(varY) > 0 THEN  varY = 0
		varX = VarX & "<img src=""Iconos/bullet_gray.png"" width=""16"" height=""16"" border=""0"" align=""absmiddle""> "& Trim(txtmat(1,cgr)) &"<BR>"	   
	NEXT
funProyCantones = varX
End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiCantones(vProyecto)
on error resume next
	IF NOT vProyecto>0 THEN vProyecto=0

	sSQL = ""
	sSQL = sSQL & " SELECT _Cantones.can_id, _Cantones.can_canton"
	sSQL = sSQL & " FROM _ProyectosMunicipios INNER JOIN"
	sSQL = sSQL & " _Cantones ON _ProyectosMunicipios.muni_id = _Cantones.muni_id"
	sSQL = sSQL & " WHERE (_ProyectosMunicipios.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Cantones.can_canton"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = ""
	FOR  cgr=0 TO cgregqty
	   varX= VarX & "<option value="""& Trim(txtmat(0,cgr)) &""">" & Trim(txtmat(1,cgr)) &"</option>"
	NEXT
	saiCantones=varX
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function saiMuniEnProy(vProyecto)
on error resume next 
	IF NOT vProyecto>0 THEN vProyecto=0

	sSQL = ""
	sSQL = sSQL & " SELECT _Municipios.muni_id, _Municipios.muni_municipio"
	sSQL = sSQL & " FROM _ProyectosMunicipios INNER JOIN"
	sSQL = sSQL & " _Municipios ON _ProyectosMunicipios.muni_id = _Municipios.muni_id"
	sSQL = sSQL & " WHERE (_ProyectosMunicipios.proy_id = "& vProyecto &")"
	sSQL = sSQL & " ORDER BY _Municipios.muni_municipio"
	txtmat = MatrixBD(sSQL, 1)
	If VarType(txtmat)=8  then
		cgregqty = -1
	Else
		cgregqty = UBound(txtmat,2)
	End If
	varX = "Ninguno"
	FOR cgr = 0 TO cgregqty
	   varX = VarX & "<option value="""& Trim(txtmat(0,cgr)) &""">" & Trim(txtmat(1,cgr)) &"</option>"
	NEXT
	saiMuniEnProy = varX
End Function	
%>